Dim $pos0,$Flag,$i

AutoItSetOption ("TrayIconHide",1)
AutoItSetOption ("TrayAutoPause",0)

$Flag = 0
For $i = 0 to 20
	$pos0 = MouseGetPos()

	if($Flag = 0 ) Then
		$Flag = 1
		MouseMove($pos0[0],$pos0[1]-1)
	Else
		$Flag = 0
		MouseMove($pos0[0],$pos0[1]+1)
	EndIf

	Sleep(60000)
Next
$pos0 = MouseGetPos()
MouseMove($pos0[0],$pos0[1]-1)
MouseMove($pos0[0],$pos0[1]+1)